home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / ASCII.DEMO.bas next >
BASIC Source File  |  2012-02-16  |  1KB  |  32 lines
  1. 10  HOME 
  2. 20  TEXT :D$ =  CHR$(4): SCALE= 1: ROT= 0
  3. 30  PRINT D$;"BLOAD /PRODOS.03/DEMOS/ASCII.SG,A$4000"
  4. 40  POKE 232,0: POKE 233,64
  5. 50  HGR 
  6. 60 Z = 2
  7. 70 H = 3
  8. 80 X = Z: HCOLOR= H
  9. 90 Y = Y +27: DRAW 2 AT X,Y
  10. 100  FOR J = 3 TO 33
  11. 110  DRAW J: NEXT J
  12. 120 X = Z +34:Y = Y +12: DRAW 34 AT X,Y: FOR J = 35 TO 59
  13. 130  DRAW J: NEXT J
  14. 140  IF H = 7  THEN 160
  15. 150 H = 7: GOTO 80
  16. 160  IF Z = 2  THEN Z = 3: GOTO 70
  17. 170  HOME : VTAB 24: PRINT "  TOUCH ANY KEY TO TYPE YOUR OWN TEXT";
  18. 180  IF  PEEK( -16384) >127  THEN  POKE  -16368,0: GOTO 200
  19. 190  GOTO 180
  20. 200 Y = 20
  21. 210  HOME : VTAB 23: HTAB 8: PRINT "SELECT COLOUR <1/2/5/6>";: HCOLOR= 3: GET C: IF C >3  THEN  HCOLOR= 7
  22. 220  ONERR  GOTO 300
  23. 230  HOME : VTAB 21: PRINT "      (USE <ESC> TO CHANGE COLOUR)": PRINT : PRINT "  TYPE ANY ASCII CHARACTERS,  EXCEPT:-": PRINT "  CTRL CHARACTERS, ARROW KEYS AND '^'";
  24. 240  HGR 
  25. 250 Y = Y +10: IF Y >150  THEN 200
  26. 260  DRAW 1 AT 2 +C,Y
  27. 270  GET K$: IF K$ =  CHR$(13)  THEN 250
  28. 280  IF K$ =  CHR$(27)  THEN 210
  29. 290 K =  ASC(K$) -31: DRAW K: GOTO 270
  30. 300  IF  PEEK(222) = 53  THEN 320
  31. 310  END 
  32. 320 Y = Y +10: DRAW K AT 12 +C,Y: GOTO 270